perm filename BOOT.PAL[11,ARG] blob sn#542449 filedate 1980-11-10 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.=1000
C00003 ENDMK
CāŠ—;
.=1000

START:	MOV #177406,%0		;ADDR WORD COUNT REG
	MOV #177400,(%0)	;READ 400 WDS
;	MOV #40000,4(%0)	;USE DRIVE 2 (60000 FOR 3, 20000 FOR 1)
	MOV #5,-(%0)		;GO READ
1$:	TSTB (%0)		;WAIT TIL DONE
	BPL 1$
	CLR %7			;JUMP TO BOOTSTRAP AT LOC 0

.END START